Attribute VB_Name = "Module1"
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Sub main()
Set cn = New ADODB.Connection
cn.ConnectionString = "driver={mysql ODBC 3.51 driver}; server=localhost; port=3306;database=dung; user=root; password=; option=3;"
cn.Open
If cn.State = adStateOpen Then
MsgBox "connect"
End If
Form1.Show
'Form2.Show
End Sub





